home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 2 - Cassandra.iso / pc / assets / scorp_photos.dxr / 00014_parent_oPhotosFrame.ls < prev    next >
Encoding:
Text File  |  2002-03-21  |  539 b   |  25 lines
  1. property pMyListPosition, pWidth, pHeight, pMyRect, pMyState, pMyPoint, pMyImage, pBlendLevel
  2.  
  3. on new me, listPosition
  4.   pMyListPosition = listPosition
  5.   pMyImage = member("photos_frame").image.duplicate()
  6.   pWidth = pMyImage.width
  7.   pHeight = pMyImage.height
  8.   pMyRect = pMyImage.rect
  9.   pMyState = #birth
  10.   pBlendLevel = 0
  11.   return me
  12. end
  13.  
  14. on movePhotosFrame me
  15.   case pMyState of
  16.     #birth:
  17.       if pBlendLevel < 100 then
  18.         pBlendLevel = pBlendLevel + 2
  19.       else
  20.         pMyState = #idle
  21.       end if
  22.     #idle:
  23.   end case
  24. end
  25.